unit quickorcamentoMP100;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type
  TQuick_OrcamentoMP100 = class(TForm)
    R_OrcamentoMP100: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRShape1: TQRShape;
    QRBand3: TQRBand;
    QRShape3: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRExpr1: TQRExpr;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel5: TQRLabel;
    QRShape2: TQRShape;
    QRLabel14: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRShape4: TQRShape;
    QRLabel15: TQRLabel;
    procedure QRBand3BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRBand2BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Quick_OrcamentoMP100: TQuick_OrcamentoMP100;

implementation

uses U_Dm_Querys, uFunRede, U_DM_Tabelas, U_Dm_local, mcFuncs, U_Forma_Pag;



{$R *.dfm}



procedure TQuick_OrcamentoMP100.QRBand3BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRLabel1.Caption:=DateToStr(now);
  QRLabel9.Caption:=trim(Dm_Tabelas.Tbl_EmpresaMENSAGEM.AsString);
  QRLabel12.Caption:=trim(Dm_Tabelas.Tbl_EmpresaNOME_EMPRESA.AsString);
  QRLabel13.Caption:=trim(Dm_Tabelas.Tbl_EmpresaENDERECO.AsString);


end;

procedure TQuick_OrcamentoMP100.QRBand2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRLabel7.Caption:=Format('%0.3n',[Dm_Local.Tbl_ItensQTDE.Value])+' '+mc_CaixaMista(trim(Dm_Local.Tbl_ItensUnimed.AsString))+' x '+Format('%3.2n',[Dm_Local.Tbl_ItensVLRUnit.Value]);
  QRLabel5.Caption:=ColocaZerosEsquerda(Dm_Local.Tbl_ItensCodItem.AsString,3)+' '+mc_CaixaMista(copy(trim(Dm_Local.Tbl_ItensDescProduto.AsString),1,28));
  QRLabel14.Caption:=Format('%0.2n',[Dm_Local.Tbl_ItensSubTotal.Value]);
 // QRLabel15.Caption:=;
end;

end.
